
/*---- Determina o Tipo de Documento , campo 990^c do KOHA --- */

/* No BIBLIObase o campo 921 e 922 identifica o tipo de documento */

if  v921 = 'a' and v922 = 'a'  then proc('D1000A1000~ANL~') fi/

if  v921 = 'r' and v922 = 'm'  then proc('D1000A1000~A3D~') fi/

if  v921 = 'g' and v922 = 'm'  then proc('D1000A1000~RVID~') fi/

if  v921 = 'k' and v922 = 'm'  then proc('D1000A1000~MNL~') fi/

if  v921 = 'a' and v922 = 'c'  then proc('D1000A1000~MIS~') fi/

if  v921 = 'j' and v922 = 'c'  then proc('D1000A1000~RSON~') fi/

if  v921 = 'b' and v922 = 'm'  then proc('D1000A1000~MON~') fi/

if  v921 = 'l' and v922 = 'm'  then proc('D1000A1000~MON~') fi/

if  v921 = 'a' and v922 = 'm'  then proc('D1000A1000~MON~') fi/

if  v921 = 'm' and v922 = 'm'  then proc('D1000A1000~RVID~') fi/

if  v921 = 'a' and v922 = 's'  then proc('D1000A1000~PER~') fi/

if  v921 = 'j' and v922 = 'm'  then proc('D1000A1000~RSON~') fi/ 

if  v921 = 'i' and v922 = 'm'  then proc('D1000A1000~RSON~') fi/

/*----------------------- Campo 990 do Koha  ----------------------------- */


if p(v931) then mpl,"=830  ", "$d"v931 else "=830  " "$c"V955^d ,"$d"V955^c fi/

"=990  "  "$c" V1000 /

/*------------------------------------------------------------------------- */

if p(v966[1]) then mpl,"=995  " "^6",V966[1]^a,  "^b",V966[1]^m, "^c",V966[1]^l,  "^u",V966[1]^n,"^f",V966[1]^a, "^k",V966[1]^s, "^l",V966[1]^c ,"^l",V966[1]^d, "$r"v1000, "^o",V966[1]^9, else '' fi /